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//JOBCAT DD DSN=XXXX. UK, DISP=SHR /^ 402 
//DEFCL EXEC PGM=PROGRAM1, REGION=1024K, TIME=1439 
//CLVOL1 DD VOL=SER=VOL1, DISP=OLD, UNIT=8598 
//SYSPRINT DD SYSOUT=A 403 
//SYSIN DD * 

DEFINE CLUSTER (NAME (XXX. XX. XXXX) 
FILE (A00001) 
VOLUME (XYZ1) 
CYL (5) 
SHR (2) 
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//ALLOCATE EXEC PGM PGM=PROGRAM2, REGION=1024K z^ 404 

//ABCSOBJ DD DSN=XXXX. YYYY. ZZZZ, DISP=(NEW, CATLG), 

// SPACE^CYUOJ,?)), 

// VOL=SER=VOL2, UNIT=8598, 

II DCB=(RECFM=U, BLKSIZE=6144, DSORG=PO) 
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